home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 213
/
213.d81
/
b.camel trek
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
10KB
|
328 lines
10 poke53280,6:poke53281,6:print""
20 print"[147]";tab(9)"**********************"
30 printtab(9)"*[144] [195][193][205][197][204][160] [212][210][197][203] *"
40 printtab(9)"**********************"
50 gosub2790
60 printtab(18)"[159]by r.w. kober[154]"
62 print"[144][204][207][193][196][211][212][193][210] is not public domain."
64 print"[144][208]lease respect the author's rights."
70 ford=1to3500:next
80 tr%=0:tc%=0:td%=0
90 forsc=1to20:print"":next
100 print"[144] [215]ould you like some instruction as to"
110 print" how this game is played?? y or n [154]"
120 forsc=1to5:print"":next
130 getd$:ifd$="n"then420
140 ifd$<>"y"then130
150 print"[147][144][215]elcome to [195][193][205][197][204][160][212][210][197][203]. [212]he object is to"
160 print"travel across the great [199]obie desert---"
170 print"a tribe of cannibalistic pygmies will"
180 print"be chasing you.------------ [217]ou will be"
190 print"asked for commands to continue play."
200 ford=1to1000:next
210 forda=1to40:print"-";:ford=1to100:next:next
220 poke198,0:print"[154] your choices will be as follows."
230 gosub2400
240 print" <press a key to continue>"
250 ifpeek(197)=64then250
260 :
310 poke198,0
320 print"[147][144][217]ou have 1 quart of water which will"
330 print"last you 6 drinks. [217]ou may refill your"
340 print"your canteen at an oasis. [217]ou will get"
350 print"1/2 quart if your miracle occurs."
360 print"[201]f you hope for a miracle and don't"
370 print"get it";:forda=1to15:print"-";:ford=1to500:next:next
380 printtab(24)"[144]you're dead!![154]"
390 ford=1to2000:next
400 print"[145][145][145][145][145][145][145][145][145][145][145][145][145] [211]elect difficulty level":goto430
410 restore
420 print"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145] [211]elect difficulty level"
430 restore:print" #1[146][154] = 50 mile trek"
440 print" #2[146][154] = 100 mile trek"
450 print" #3[146][154] = 150 mile trek"
460 print" #4[146][154] = 200 mile trek"
470 getm$:ifval(m$)<1orval(m$)>4then470
480 onval(m$)goto490,500,510,520
490 m=50:j=32:k=53:l=48:kk=3:goto530
500 m=100:j=49:k=48:l=48:kk=3:goto530
510 m=150:j=49:k=53:l=48:kk=2:goto530
520 m=200:j=50:k=48:l=48:kk=2:goto530
530 forgg=0to4:readg
540 ifg=-1thenprint"[147]":goto410
550 poke1918+gg,g:next
560 formm=0to5:readp
570 ifp=-1thenprint"[147]":goto410
580 poke1926+mm,p:next
590 forcs=0to13:poke56190+cs,0:next
600 data7,15,1,12,61,32,13,9,12,5,19,-1
610 poke1923,j:poke1924,k:poke1925,l
620 print" good luck and good camel trekking."
630 ford=1to2000:next
640 print"[147][217]ou are in the middle of the [199]obie "
650 print"desert, at an oasis-----------------"
660 gosub2380
670 print"[217]our trek is just about ready to begin":goto880
680 ifc>m-1then1810
690 z=z-1:q=q+1:qq=0
700 ifz=1thenprint"[158]----- [215][160][193][160][210][160][206][160][201][160][206][160][199] [146]-----[144] get a drink[154]"
702 fordl=1to600:nextdl
710 ifz<0then2310
720 x2=int(rnd(1)*10+1)
730 ifq<kkthen870
740 c1=c1+x2
750 ifc1<cthen850
760 poke53280,2:poke53281,11
770 print"[147][158] "
780 print" *** [212]he pygmies have captured you.*** "
790 print" [146]":gosub2740
800 print" [195]amel's [195]ream of [208]eople soup is their"
810 print" favorite meal---":ford=1to3000:next
820 poke53280,6:poke53281,6:ford=1to500:next
830 printtab(25)"[144]b [145]u [145]r [145]p---[154]"
840 goto2040
850 ifc-c1<10thenprint"[158] [193][204][197][210][212]![146][154] [212]he pygmies are";c-c1;"miles behind":goto870
860 print"[212]he pygmies are ";c-c1;" miles behind you."
870 print"[217]ou have traveled ";c;" miles so far."
880 print" [215]hat is your command?"
890 print" (for choices press <f7>)"
900 print"[153]----------------------------------------[154]"
910 ifpeek(197)=64then910
920 ifpeek(197)=3thengosub2400:goto925
925 gety$:ify$="q"then63000
930 ifval(y$)<1orval(y$)>6then910
940 onval(y$)goto1260,1020,1120,1210,1300
950 t=int(rnd(1)*10+1)
960 ift>3then1800
970 poke198,0:print" [217]ou have been found in a state of "
980 print" unconsciousness."
990 s=3
1000 z=4
1010 goto680
1020 poke198,0:f=f+1
1030 print"[147]":gosub2600
1040 iff=8then1780
1050 gosub1420
1060 x1=int(rnd(1)*10+1)
1070 c=c+x1
1080 ifqq=1then680
1090 print" [217]our camel likes this pace!"
1100 iff>5thenprint" [158] but [146][154]--he is getting tired"
1110 goto680
1120 poke198,0:f=f+3
1130 print"[147]":gosub2670
1140 iff>7then1780
1150 gosub1420
1160 x1=int(rnd(1)*20+1)
1170 c=c+x1
1180 ifqq=1then680
1190 print"[217]our camel is[150] burning[154] up the desert sand"
1200 goto680
1210 poke53280,0:poke53281,0
1220 poke198,0:print"[147] [217]our camel thanks you. [159]zzz-zzz-zzz-zzz[154]"
1230 f=0:c1=c1+10
1240 ford=1to2000:next
1250 poke53280,6:poke53281,6:goto680
1260 print"[147]":poke198,0:poke53280,11:poke53281,11
1270 forvb=1to7:print"[159][205]mm";:ford=1to100:next:next
1280 printtab(17)"[145][145][145][145][156]---- good water [146][154]"
1290 ford=1to100:next:poke53280,6:poke53281,6:goto1360
1300 print"[147]":poke53280,9:poke53281,9
1310 poke198,0:print"[217]our camel has";7-f;" good days left"
1320 print"[217]ou have";s;"drinks left in your canteen."
1330 print"[217]ou can go";z;"commands without drinking."
1340 print"you still have ";m-c;" miles to travel"
1350 ford=1to3000:next
1360 poke198,0:s=s-1:poke53280,6:poke53281,6
1370 ifs<0then1800
1380 ifs>2then1400
1390 print"[158] ----[194]etter watch for an oasis[146]----[154]"
1400 z=4
1410 goto880
1420 a=int(rnd(1)*100+1)
1430 ifa>5then1700
1440 print" [215]ild [194]erbers hidden in the sand have"
1450 print" captured you. [204]uckily, the local sheik"
1460 print" has agreed to their ransom demands---"
1470 print" but---watch out for the pygmies!!!!"
1480 ford=1to4000:next
1490 print"":forda=1to40:print"[152]-";:ford=1to30:next:next
1500 print"[154] [217]ou have two new choices of commands"
1510 print" #7[146][154] = [193]ttempt an escape"
1520 print" #8[146][154] = [215]ait for payment"
1530 print" [215]hat is your command?"
1540 print"[159]---------------------------------------[154]"
1550 getx$:ifx$="8"then1640
1560 ifx$<>"7"then1550
1570 x1=int(rnd(1)*10+1)
1580 ifx1<6then1610
1590 print"[195]ongratulations---you've escaped!!!"
1600 goto680
1610 print"[217]ou were mortally wounded by a pig"
1620 print"stabber while escaping."
1630 goto2040
1640 x1=int(rnd(1)*100+1)
1650 ifx1>24then1680
1660 print"[217]our ransom has been paid, you are free."
1670 goto680
1680 print"[212]he local sultan is collecting---wait--"
1690 ford=1to3000:next
1700 a=int(rnd(1)*10+1)
1710 ifa>3then1870
1720 print"[217]ou have arrived at an oasis. [217]our camel"
1730 print"is filling your canteen and eating figs."
1740 c=c+10
1750 z=4
1760 s=6:qq=1
1770 return
1780 print"[147][212]oo bad....you ran your poor old camel"
1790 print"too death!!"
1800 goto2040
1810 print"[150][147] *********** [217][160][207][160][213][160][160][215] [201] [206] ***********"
1820 gosub2790
1830 print"[152] [193] party is being given in your honor."
1840 print"[144] [212]he pygmies are planning to attend.[154]"
1850 tc%=tc%+1
1860 goto2240
1870 x1=int(rnd(1)*100+1)
1880 ifx1>5then1980
1890 print"[217]ou have been caught in a sand storm!"
1900 x5=int(rnd(1)*10+1)
1910 x6=int(rnd(1)*10+1)
1920 ifx6<5then1950
1930 c=c+x5
1940 goto1960
1950 c=c-x5:ifc<0thenc=0
1960 print"[217]our new position is ";c;" miles so far."
1970 goto880
1980 x1=int(rnd(1)*100+1)
1990 ifx1>5thenreturn
2000 c1=c1+1
2010 print" [217]our camel hurt his hump."
2020 print" [204]uckily the pygmies were footweary."
2030 goto880
2040 u=int(rnd(1)*10+1)
2050 print"[150][217]ou died in the desert----------------[154]"
2060 gosub2930
2070 ifu>1then2110
2080 print"[212]h[217]e national camel's union is boycotting"
2090 print"your funeral!!